Mesolore/Mesolore - Disc 1.iso/pc/data/Buttons.cst/00047_Script_main movie script

Text File | 2001-04-13 | 35KB | 1,154 lines

Global gReturn
Global gDebateAudio, gDebateText, gLectureVideo, gLectureText,gRetraceList,ghilitecolor,gpathDelimit,gwhichFrame,gShowText,gShowSearch
Global   glastcoord, gshowGazeteer
Global gsearchtxt, gSearchImg, gsearchmm,gDispatcher,gWhichMusic

on test
  temp = field "glosslist"
  repeat with x = 1 to the number of lines in temp
    put x
    searchGloss (line x of temp)
  end repeat

end

on removeBlanksfromlist
  temp = field "glosslist"
  repeat with x = 1 to the number of lines in temp
    repeat while the last char of line x of temp = " "
      put line x of temp
      delete char (the number of chars in line x of temp) of line x of temp
    end repeat
  end repeat
  put temp into field "glosslist"
  beep
end


global gDefinition
on glossarize
  repeat with y = 196 to 196
    whichField = member y
    put whichfield
    temp = field "glosscompare"
    hMany = the number of lines in temp
    if the type of member y = #field then
      --set the forecolor of field whichField = 255

      SearchField = Field whichField
      fullField = SearchField
      fullFieldChars = the number of chars in fullField
      addOn = 0 --- if searching the rest of a field
      repeat with x = 1 to hMany

        searchword = line x of temp
        --put searchword
        if searchField contains SearchWord then
          --          put searchword
          start = offset(searchWord, searchField) + addOn
          finish  = start + (the number of chars in searchword) -1
          ---check end---
          --          put the number of chars in searchfield && finish
          if "()[]!/,. ;:?_-'" & quote & return contains char (finish +1) of fullField or finish = fullFieldChars then
            ---check start---
            if "()[]!/,. ;:?_-┐'" & quote & return contains char start-1 of fullField or start = 1 then
              set the forecolor of char start to finish  of field whichField to 15
              addOn = 0
              SearchField = fullField
              next repeat

            end if
          end if
          ---continue searching in the rest of the text
          searchfield = char finish +1 to (fullFieldChars) of fullField
          if the number of chars in searchfield = 0 then
            addOn = 0
            SearchField = fullField
            next repeat
          end if
          -- put searchword && searchfield
          addon = finish
          x = x-1
        else
          addOn = 0
          SearchField = fullField
        end if


      end repeat
    else
      next repeat
    end if
  end repeat
  beep
end

on glossarizetext
  repeat with y = 211 to 244
    whichField = member y
    put whichfield
    if the type of member y = #text then
      --set the forecolor of field whichField = 255
      temp = field "glosscompare"
      hMany = the number of lines in temp
      SearchField = the text of whichField
      repeat with x = 1 to hMany
        searchword = line x of temp
        if searchField contains SearchWord then
          --          put searchword
          start = offset(searchWord, searchField)
          finish  = start + (the number of chars in searchword) -1
          if ",. ;:?" contains char (finish +1) of SearchField then
            if char start-1 of SearchField = " " then
              set the forecolor of char start to finish  of member 211 to 15
            end if
          end if
        end if

      end repeat
    else
      next repeat
    end if
  end repeat
  beep
end

on ick
  repeat with y = 1 to 34
    put  "4:goto " &  QUOTE & y
  end repeat

on LibLink which
  -- which = capIt(which)
  --gotoNetPage("http://www.steveblakedesign.com/" & which)
  if the type of the member of sprite 4 = #quickTimeMedia then
    sprite(4).movierate = 0
  end if
  if the type of the member of sprite 8 = #quickTimeMedia then
    sprite(8).movierate = 0
  end if
  gotoNetPage("http://www.mesolore.com/library/advanced/" & which)
end

on capIt which
  repeat with x = 1 to the number of chars in which
    if chartonum(char x of which) >= 97 and chartoNum(char x of which) <= 122 then
      put numToChar(chartonum(char x of which)-32) into char x of which
    end if
  end repeat
  return which
end

on showSprite which
  repeat with x in which
    if sprite(x).locH < 0 then
      sprite(x).locH = sprite(x).locH +1000
    end if
  end repeat
  updatestage
end

on hideSprite which
  repeat with x in which
    if sprite(x).locH > 0 then
      sprite(x).locH = sprite(x).locH -1000
    end if
  end repeat
  updatestage
end
on PrintIt where
  set doc = new(xtra "PrintOMatic_Lite")
  if not objectP(doc) then exit
  temp = char 1 to (offset(".",the movie))-1 of the movie
  case (temp) of
    "debates","tutorial","lecture","glossary","notepad": x = 3
    "atlas":x =8
    "text":x = 3
    "nuttall search":x = 9
    "selden search":x = 9
    otherwise
      x=3
  end case

  If the membernum of the member of sprite x >0 then
    if "#text #field" contains string(the type of member (the member of sprite x)) then
      append doc, member(the member of sprite x), TRUE
      append doc, RETURN & RETURN & "Mesolore, Bakewell and Hamann,⌐Brown University 2001", TRUE
      if (the optiondown) then
        if doJobSetup (doc) = TRUE then
          printpreview doc
        end if
      else
        if doJobSetup (doc) = TRUE then
          print doc
        end if
      end if
    else
      alert "Sorry, nothing to print."


    end if
  else
    alert "Sorry, nothing to print."
  end if
  set doc = 0
end

on stripDoubles --- from indexterms
  temp = the text of member"indexterms"
  hold = ""
  newlist = ""
  repeat  with x = 1 to the number of lines of temp
    if line x of temp = hold then
    else
      put line x of temp & RETURN after newList
      hold = line x of temp
    end if
  end repeat
  put newList into field "indexterms2"
end

on ww
  temp = the text of member"masterindex"
  newlist = ""
  repeat  with x = 1 to the number of lines of temp
    if line x of temp contains "debates.dir" then
      put line x of temp & RETURN after newList
    end if
  end repeat
  put newList --into field "indexterms2"
end

on scrollGloss whichline
  where = getAt(charPosToLoc(member "glosslist", value(whichLine)),2)  - the lineheight of  member "glosslist"
  sendSprite(11,#CustomScrollbar_SetScroll,where)
end


on checkGloss
  put false into triedIt
  put the mousechar into gActivechar
  put empty into gDefinition
  put the mousecast into gSearchField
  if gActivechar = -1 then abort
  if the forecolor of char gActivechar of field gSearchField = 15 or the forecolor of char gActivechar of field gSearchField = 31 then
    put the forecolor of char gActivechar of field gSearchField into whichColor
    put gActivechar into Start
    put gActivechar into end
    if gActivechar > 1 then
      repeat with x = 1 to 50 --- Look for red chars to left
        if the forecolor of char gActivechar - x of field gSearchField = whichColor then
          put max(1,gActivechar - x) into Start
        else
          exit repeat
        end if
      end repeat
    end if
    repeat with x = 1 to 50 --- Look for red chars to right
      if the forecolor of char gActivechar + x of field gSearchField = whichColor then
        put gActivechar + x into end
      else
        exit repeat
      end if
    end repeat
    if not(the movie contains "atlas") then
      hilite char start to end of field gSearchField
    end if
    put char start to end of field gSearchField into gSearchWord
    repeat while the last char of gSearchWord = "_"
      delete char (the number of chars in gSearchWord) of gSearchWord
    end repeat
    repeat while the last char of gSearchWord = " "
      delete char (the number of chars in gSearchWord) of gSearchWord
    end repeat
    put gsearchword
    searchGloss gsearchword

  end if
end


on searchGloss(which)
  set the itemdelimiter = "#"
  tempa = field "xref"
  hmanya = the number of lines in tempa
  repeat with y = 1 to hmanya
    if item 1 of line y of tempa = which then
      findDef(value(item 2 of line y of tempa))

      exit repeat
    end if
  end repeat
  if y > hmanya then put which
  set the itemdelimiter = "#"
end

on findDef(whichline)
  temp = ""
  repeat with x = whichline + 1 to 10000
    if line x of field "glossdef" <> "" then
      put line x of field "glossdef" & RETURN after temp
    else
      exit repeat
    end if
  end repeat
  if the movie contains "glossary" then
    sprite(3).visible = FALSE
    put temp into field "result"
    setBold
    sprite(3).visible = TRUE
  else
    open window "Definition"
    set the windowtype of window "definition" = 4
    tell window "definition" to sprite(3).visible = False
    tell window "definition" to put temp into field "result"
    tell window "definition" to setBold
    tell window "definition" to sprite(3).visible = TRUE
  end if

end

on setBold
  temp = field "result"
  set the fontStyle of field "result" = "plain"
  repeat with x = 1 to the number of lines in field "result"
    if line x of temp contains ":" then
      set the fontStyle of char 1 to (offset(":",line x of temp)) of line x of field "result" = "Bold"
      if x <> 1 and not(line x-1 of field "result" contains ":") then
        put RETURN after line x-1 of field "result"
      end if
    end if

  end repeat
end


on gg --gloss index
  set the itemDelimiter = "#"
  put "" into field "hits"--xref
  temp = field "misses" -- "glosslist_hidden"

  tempa = field "glossdef"
  hmany = the number of lines in temp
  put hmany
  hmanya = the number of lines in tempa
  repeat with x = 1 to hmany
    put x
    sWord = line x of temp
    --put sword
    found = FALSE
    repeat with y = 1 to hmanya
      if line y of tempa contains "#" or line y-1 of tempa = "" then
        repeat with i = 1 to the number of items in line y of tempa
          if item i of line y of tempa = sword then
            put sword & "#" & y & RETURN after field "hits" -- "xref"
            found = TRUE
          end if
        end repeat
      end if
      if found = TRUE then exit repeat
    end repeat
    if y = hmanya then
      put sword
    end if
  end repeat

  set the itemDelimiter = ","

end

on yy
  set the itemDelimiter = "#"
  repeat with y = 40 to 49
    temp = the text of member y
    hMany = the number of lines in temp
    repeat with x = 1 to hMany
      target = item 1 of line x of temp
      put target & "                                                             " into item 1 of line x of temp
    end repeat
    the text of member y = temp
  end repeat
  set the itemDelimiter = ","
end

on zz
  set the itemDelimiter = "#"
  --  repeat with y = 40 to 49
  temp = field "indexterms"
  hMany = the number of lines in temp
  repeat with x = 1 to hMany
    target = item 1 of line x of temp
    put target into line x of temp
  end repeat
  put temp into field "indexterms"
  --  end repeat
  set the itemDelimiter = ","
end



on xx
  repeat with y = 17 to 26
    put the text of member value(y) & RETURN after field "list"

  end repeat

end
on showscroll
  put the scrolltop of the member of sprite 3
end

on expandMenu which, who
  sprite(2).member = which & who
  updatestage
  sendSprite(10, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(11, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(12, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(13, #CustomScrollbar_SwapMember,the member of sprite 2)
  if "rivera, valdes,magd,stav,ponia,tibol,lopez" contains who then
    tlang="-spn"
  else
    tlang= "-eng"
  end if
  temp = findxname(who)& "_" & (char 1 to 2 of which) & tlang
  the member of sprite 3 =temp
  updatestage
  sendSprite(15, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(16, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(17, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(18, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(16,#CustomScrollbar_SetScroll,0)
  sendSprite(10,#CustomScrollbar_SetScroll,0)
end

on findxname(who)
  temp = ""
  hold = field "namesxref"
  hmany = the number of lines in hold
  the itemdelimiter = "#"
  repeat with x = 1 to hmany
    if line x of hold contains who then
      return item 2 of line x of hold
      exit repeat
    end if
  end repeat
  the itemdelimiter = ","
end

on resetMenu which
  sprite(8).visible = 0
  sprite(2).member = which
  sendSprite(10, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(11, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(10,#CustomScrollbar_SetScroll,0)
  temp = "sum_" & which & "_eng"
  the member of sprite 3 =temp
  sendSprite(16, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(16,#CustomScrollbar_SetScroll,0)
end

on getlines
  put "" into field "textwindowlist"
  tell window "selden text" to set temp = field "info"
  repeat with x = 1 to 20
    repeat with y = 1 to the number of lines in temp
      if line y of temp contains "Page" and line y of temp contains string(x) then
        exit repeat
      end if
    end repeat
    put y-1 & RETURN after field "textwindowlist"
  end repeat

end

on setloc
  beginrecording
    repeat with y = 798 to 798
      go frame y
      if the membernum of sprite 2 <> 0 then
        move y
      end if
    end repeat
  endrecording
end

on FIXfields
  repeat with x = 947 to 1975 ---767 to 800

    go frame x
    if the membernum of sprite 30 <> 0 then
      put x
      if char 1 of line 1 of FIELD the member of sprite 30 = "N" then
        delete line 1 of FIELD the member of sprite 30
        repeat with y = 1 to 100
          if line 1 of FIELD the member of sprite 30 = "" then
            delete line 1 of FIELD the member of sprite 30
          else
            exit repeat
          end if
        end repeat
      END IF
    end if
  end repeat
end

on setfields
  repeat with x = 765 to 1500
    put x
    go frame x
    if the membernum of sprite 30 <> 0 then
      set the forecolor of the member of sprite 30 = 79
      set the border of the member of sprite 30 = 0
      updatestage
    end if
  end repeat
end


on move which
  go frame which
  set a =  point(419,250) - the loc of sprite 2
  set the loc of sprite 2 = point(419,250)
  repeat with x = 5 to 29
    if the membernum of sprite x <> 0 then
      set b = the loc of sprite x
      set the loc of sprite x = a + b

    end if
  end repeat
  updatestage
end

on preparemovie
  if gRetraceList = void then set gRetraceList       = ["home*Intro" ]
  browsername()
  if the movie contains "debate" then
    sprite(8).visible = 0
  end if


  if the machinetype = "256" then
    set gpathDelimit = "\"
  else
    set gpathDelimit = ":"
  end if

  glastcoord = ""
  gshowGazeteer = FALSE
  gsearchtxt = TRUE
  gSearchImg= TRUE
  gSearchmm=TRUE


  sprite(100).visible = 0 ---menu sprite
  sprite(101).visible = 0
  set gDebateAudio = TRUE
  set gDebateText = TRUE


  if the movie contains "nuttall" or the movie contains "selden" or the movie contains "tutorial" or the movie contains "debate" then
    nothing
  else
    hmany = the number of members of castlib 1
    repeat with x = 1 to hMany
      if the type of member x = #field then
        set the scrolltop of member x = 0
      end if
    end repeat
  end if
  if voidp(gdispatcher) then
    gDispatcher = new(script "dispatcher")

  end if
end





on setupMIAW windowName, windowFile, wType
  --  set the fileName of window windowName to windowFile
  --  if wtype= "void" then
  --    set the windowType of window windowName to 2
  --  else
  --    set the windowType of window windowName to wType
  --  end if
end setupMIAW


on keyDown
  if the movie contains "intro" then
    go "kill"

  else
    if the platform contains "macintosh" then
      if (the optiondown)  then
        case (the keypressed) of

            --"s":   tell the stage to playSeldenLoop
          "f":     tell the stage to alert(string((the freebytes/1000000)))
          "m":    tell the stage to playMusic
          "o":   tell the stage to showOrder
          "t":   tell the stage to showText
          "b":   tell the stage to showballoons
        end case
      end if
    else
      if (the commandDown)  then
        case (the keypressed) of

            --"s":   tell the stage to playSeldenLoop
          "m":   tell the stage to  playMusic
          "o":   tell the stage to showOrder
          "t":   tell the stage to showText
          "b":   tell the stage to showballoons
        end case
      end if
    end if
  end if

end
on playMusic
  if soundBusy(3) or soundBusy(4)then
    puppetsound 3,0
    puppetsound 4,0
  else
    if gWhichMusic = "selden" then
      puppetsound 4,"NutallLoop"
      gWhichMusic = "nuttall"
    else
      puppetsound 3,"SELDENLOOP"
      gWhichMusic = "selden"
    end if
  end if
end


on closeWindow
  put the activewindow
  if the activeWindow = (window "Nuttall Text") then
    gShowText = FALSE
  end if
  if the activeWindow = (window "Selden Text") then
    gShowText = FALSE
  end if

  if (string(the activewindow) contains "bookmarks") or (string(the activewindow) contains "notepad") then
    nothing
  else
    forget the activewindow
  end if


end

on stopMovie
  if the movie contains "atlas" then
    if windowpresent("select a site") then
      close window("select a site")
    end if
  end if

  sound stop 1
  sound close 1
end

on flashLine
  --  put the mouseLine
  put the mouseline into clickLine
  --  if the machinetype = "256" then
  --    if clickline = -1 then abort
  --    set thisField = member(the mousemember)
  --    -- put the forecolor of line clickLine of member thisField
  --    if the forecolor of line clickLine of member thisField <> 255 then
  --      --      set the forecolor of line clickLine of member thisField to 255
  --      --      updatestage
  --    else pass
  --
  --    repeat while the mouseDown
  --      if the mouseLine <> clickline  then
  --        if clickline <> "" then set the forecolor of line clickLine of member thisField to 15
  --        put the mouseline into clickLine
  --        put clickline
  --        if the forecolor of line clickLine of member thisField <> 255 then
  --          set the forecolor of line clickLine of member thisField to 255
  --        else set clickLine = ""
  --        updatestage
  --      end if
  --    end repeat
  --    if clickline <> "" then set the forecolor of line clickLine of member thisField to 15
  --    updatestage
  --    if member(the mousemember) <> member thisField or the mouseLine <> clickLine then abort
  --    return clickline
  --  else
  --    if clickline = -1 then abort
  --    set thisField = member(the mousemember)
  --    --  put the forecolor of line clickLine of member thisField
  --    if the forecolor of line clickLine of member thisField <> 0 then
  --      set the forecolor of line clickLine of member thisField to 0
  --      updatestage
  --    else pass
  --    repeat while the mouseDown
  --      if the mouseLine <> clickline  then
  --        if clickline <> "" then set the forecolor of line clickLine of member thisField to 19456
  --        put the mouseline into clickLine
  --        put clickline
  --        if the forecolor of line clickLine of member thisField <> 0 then
  --          set the forecolor of line clickLine of member thisField to 0
  --        else set clickLine = ""
  --        updatestage
  --      end if
  --    end repeat
  --    if clickline <> "" then set the forecolor of line clickLine of member thisField to 19456
  --    updatestage
  --    if member(the mousemember) <> member thisField or the mouseLine <> clickLine then abort
  return clickline
  --  end if
end

on retrace
  if count( gRetraceList ) > 1 then
    deleteAt( gRetraceList, count( gRetraceList ))
    set dest = ( getLast( gRetraceList ))
    set the itemdelimiter = "*"
    goTo item 1 of dest, item 2 of dest
    set the itemdelimiter = ","
    deleteAt( gRetraceList, count( gRetraceList ))

  else
    beep
  end if
  cursor 0
end retrace

on radio which
  case (which) of
    "tm":
      set the hilite of member "tm" = true
      set the hilite of member "t" = false
      set the hilite of member "m" = false
      set gMmMode = "tm"
      set the visible of sprite 3 = true
    "t":
      set the hilite of member "t" = true
      set the hilite of member "m" = false
      set the hilite of member "tm" = false
      sound stop 1
      set gMmMode = "t"
      set the visible of sprite 3 = true
    "m":
      set the hilite of member "m" = true
      set the hilite of member "t" = false
      set the hilite of member "tm" = false
      set the visible of sprite 3 = false
      --      set the member of sprite 3 = "text placeholder"
      updatestage
      set gMmMode = "m"
  end case
  updatestage
end


on playMM who, lineNum, audioNum
  if audionum > 0 then
    sprite(8).movierate = 0
    sprite(8).movietime = 0
    sprite(8).visible = 1
  end if
  put char 1 to (offset("_", who)-1) of who
  --  set the text of the member of sprite 3 =  the text of member who
  --
  set the  member of sprite 3 =  member who

  sendSprite(15, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(16, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(17, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(18, #CustomScrollbar_SwapMember,the member of sprite 3)
  updatestage
  where = getAt(charPosToLoc(member who, lineNum),2)  - the lineheight of  member who
  sendSprite(16,#CustomScrollbar_SetScroll,where)
  set the visible of sprite 3 = gDebateText

  updatestage
  if gDebateAudio = TRUE and not voidp(audioNum)  then
    break = offset("_", who)
    section = char (break +1) to (break +2) of who
    who = char 1 to (break -1) of who
    put the pathName & "audio" & gpathDelimit & who & "0" & audionum  & "-" & section & ".mov"
    set the filename of member "audio placeholder" = the pathName & "audio" & gpathDelimit & who & "0" & audionum  & "-" & section & ".mov"
    set the movieRate of sprite 8 = 1
  end if

end

on playLect who, lineNum, audioNum
  if gLectureVideo = false and gLectureVideo = false then
    gLectureText= true
    gLectureVideo =true
    sprite(3).visible=true
    sprite(4).visible=true
    set the member of sprite 5 = "check_x"
    set the member of sprite 6 = "check_x"
  end if
  set the movieRate of sprite 4 = 0
  --  put char 1 to (offset("_", who)-1) of who
  set  the member of sprite 3 =   who
  set the visible of sprite 3 = gLectureText
  updatestage
  sendSprite(15, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(16, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(17, #CustomScrollbar_SwapMember,the member of sprite 3)
  sendSprite(18, #CustomScrollbar_SwapMember,the member of sprite 3)
  updatestage
  where = getAt(charPosToLoc(member who, lineNum),2)  - the lineheight of  member who
  sendSprite(16,#CustomScrollbar_SetScroll,where)
  --sendSprite(16,#CustomScrollbar_SetScroll,lineNum)
  updatestage
  if gLectureVideo = TRUE then
    if audioNum = 0 then
      nothing
    else
      if who contains "jansen-" then
        if who contains"_eng" then
          holder = "_spn"
        else
          holder = "_eng"
        end if
      else
        holder=who
      end if
      break = offset("_", who)
      section = char (break +1) to (break +2) of who
      who = char 1 to (break -1) of who
      if audioNum < 10 then audionum = "0" & audionum
      set the filename of the member of sprite 4 = the pathName & "video" & gpathDelimit & who  & audionum  & ".mov"
      put holder
      if holder contains "_eng" then
        settrackEnabled(sprite 4, 2,true)
        settrackEnabled(sprite 4, 3,false)
      else
        settrackEnabled(sprite 4, 2,false)
        settrackEnabled(sprite 4, 3,true)
      end if

      set the movieRate of sprite 4 = 1
    end if
  end if

end

on buildIndex

  newlist = ""
  temp = the text of member "masterIndex"
  hmany = the number of lines of temp
  hold = the text of member "indexterms"
  holdhmany = the number of lines of hold

  repeat with x = 1 to holdhmany
    searchword = line x of hold
    repeat with y = 1 to hmany
      if line y of temp contains searchword then
        put searchword & "                                   #" & y & return after newlist
        put searchword
        exit repeat
      end if
    end repeat

  end repeat
  put newlist into field "indexterms2"
  beep
end
on scrollIndex whichline
  where = getAt(charPosToLoc(member "indexterms", value(whichLine)),2)  - the lineheight of  member "indexterms"
  sendSprite(11,#CustomScrollbar_SetScroll,where)
end


on searchIndex(which)
  --  ttime = the ticks
  --  put the ticks - ttime
  cursor 4
  set the itemDelimiter = "#"
  if voidp(which) then --- if clicked directly on searchList
    clickline = the mouseline
    Searchword = (item 1 of line clickline of field "indexterms2")
    Searchindexes(Searchword,item 2 of line clickline of field "indexterms2")
  else
    Searchword = which --- search from enter a word
    temp = field "searchList"
    holder = []
    hmany = the number of lines of temp
    repeat with y = 1 to hmany
      if line y of temp contains Searchword then
        append holder, item 1 of line y of temp
      end if
    end repeat
    put holder
    repeat with target in holder
      put target
      if the mouseDown then abort
      Searchindexes (target,getIndexline(target))
    end repeat
  end if
  set the itemDelimiter = ","
  beep
  cursor 0
  --  put the ticks - ttime
end

on getIndexline(target)
  temp = field"indexterms2"
  hmany = the number of lines in temp
  the itemdelimiter = "#"
  repeat with x = 1 to hmany
    if line x of temp contains target then
      return item 2 of line x of temp
      exit repeat
    end if
  end repeat

end


on findMatch ss
  set the itemDelimiter = ":"
  temp = the text of member "xref_index"
  repeat with x = 1 to the number of lines in temp
    if line x of temp contains ss then
      holder = line x of temp
      return item 2 of holder
      exit repeat
    end if
  end repeat
  return ""
  set the itemDelimiter = "#"
end

on Searchindexes (searchword,whichLine)--- clicked on searchlist
  repeat while the last char of searchword =" "
    delete the last char of searchword
  end repeat
  vvideo=""
  vaudio=""
  vText=""
  vImage=""


  temp = the text of member "masterIndex"
  hmany = the number of lines of temp
  flag=FALSE
  repeat with y = value(whichLine) to hmany
    if line y of temp contains searchword & " " then
      flag = TRUE
      set targetLine = line y of temp
      ss = char (offset("#", targetLine )+1) to (the number of chars of targetline) of targetline
      if targetline contains "image" then
        put findMatch(ss)  after vImage
        set the itemDelimiter = "#"
        put "                                                                                                       #" & item 2 to 4 of targetLine  & return after vImage

      else if targetline contains "text" then
        put findMatch(ss)  after vtext
        set the itemDelimiter = "#"
        put "                                                                                                       #" & item 2 to 4 of targetLine  & return after vtext

      else if targetline contains "audio" then
        put findMatch(ss)  after vaudio
        set the itemDelimiter = "#"
        put "                                                                                                       #" & item 2 to 4 of targetLine  & return after vaudio

      else if targetline contains "video" then
        put findMatch(ss)  after vvideo
        set the itemDelimiter = "#"
        put "                                                                                                       #" & item 2 to 4 of targetLine  & return after vvideo

      end if
    else
      if flag =TRUE then
        flag = false
        exit repeat
      end if

    end if
  end repeat

  repeat with x in ["Image","Video","Audio","Text"]

    if value(("v" & x)) <> "" then
      case (x) of
        "image": if gSearchImg = FALSE then next repeat
        "Video": if gSearchmm = FALSE then next repeat
        "Audio": if gSearchmm = FALSE then next repeat
        "Text": if gSearchtxt = FALSE then next repeat

      end case
      put Searchword & " (" & x & ")" & RETURN  after field "results"
      set the forecolor of line (the number of lines of field "results") -1 of field "results" = 255
      set the fontStyle of line (the number of lines of field "results") -1 of field "results" = "bold"
      --stripsearchDoubles(x)
      put value( "v"&x) & RETURN after field "results"
    end if
  end repeat

  --  sendSprite(15, #CustomScrollbar_SwapMember,the member of sprite 2)
  sendSprite(16, #CustomScrollbar_SwapMember,the member of sprite 2)
  --  sendSprite(17, #CustomScrollbar_SwapMember,the member of sprite 2)
  --  sendSprite(18, #CustomScrollbar_SwapMember,the member of sprite 2)
   sendSprite(16,#CustomScrollbar_SetScroll,10000)

  set the itemDelimiter = ","
end








on HtmlPath
  temp = gDispatcher.getHTMLPath()
  --  set temp = the pathname
  --  if the machinetype = 256 then
  --    repeat with x = 1 to the number of chars in temp
  --      if char x of temp = "\" then
  --        put "/" into char x of temp
  --      end if
  --    end repeat
  --  else
  --    repeat with x = 1 to the number of chars in temp
  --      if char x of temp = ":" then
  --        put "/" into char x of temp
  --      end if
  --    end repeat
  --  end if
  return temp
end


on showHtml which
  gDispatcher.showHTML(which)
  --  cursor 4
  --  -- SKB 6/20/99  gotoNetPage "file:///" & htmlPath() & "index.htm"
  --  gotoNetPage "file:///" & htmlPath() & "Library/articles/" & which
  --  cursor 0

end


on pCredits whichFrame
  set gReturn = the framelabel
  goto whichFrame, "photo_credits"
end

on showtrans whichtext
  open window "Text"
  set the windowtype of window "Text" = 4
  --  tell window "Text" to put "" into field "info"
  --  temp = the text of member whichtext
  tell window "Text" to set the member of sprite 3 =  member whichtext
  tell window "Text" to sendSprite(10, #CustomScrollbar_SwapMember,the member of sprite 3)
  tell window "Text" to sendSprite(11, #CustomScrollbar_SwapMember,the member of sprite 3)
  tell window "Text" to sendSprite(12, #CustomScrollbar_SwapMember,the member of sprite 3)
  tell window "Text" to sendSprite(13, #CustomScrollbar_SwapMember,the member of sprite 3)
  tell window "Text" to set the scrolltop of the member of sprite 3 to 0
end




on playmovie whichMovie
  set gReturn = the framelabel
  go "movie"
  set the member of sprite 3 = whichMovie
  set the controller of the member of sprite 3 = true
  updatestage
  set the visible of sprite 3 = true
  updatestage
  set the movierate of sprite 3 = 1
end

on setmov
  repeat with x = 57 to 101
    set the preload of member x = true
    set the controller of member x = false
  end repeat
end


on goto whichFrame, whichmovie, stage
  gDispatcher.goto(whichFrame,whichmovie)
end

--on stagegoto whichFrame, whichmovie
--  gTargetFrame = whichFrame
--  gTargetMovie = whichMovie
--  gDispatcher.stagegoto(gTargetFrame,gTargetMovie)
--  --  if value(whichFrame) <> void then set whichFrame = value(whichFrame)
--  --  if whichmovie = void or the movie contains whichmovie then
--  --    set whichMovie = the movie
--  --    cursor 4
--  --    tell the stage to go whichFrame
--  --    cursor 0
--  --  else
--  --    cursor 4
--  --    tell the stage to set the visible of sprite 53 to FALSE
--  --    tell the stage to set the visible of sprite 54 to FALSE
--  --    tell the stage to set the visible of sprite 55 to FALSE
--  --    tell the stage to set the visible of sprite 56 to FALSE
--  --    tell the stage to go whichframe of movie whichmovie
--  --  end if
--  --  set where = whichFrame & "*" & whichMovie
--  --  add(gRetraceList, where)
--  --  cursor 0
--end


on btnDown whSprite
  if  whSprite = void then set whSprite = the clickon
  if the name of the member of sprite whSprite contains "_h" then
    set the membernum of sprite whSprite = (the memberNum of sprite whSprite) +2
    updatestage
  end if
  repeat while the mousedown
    if not rollover(whSprite) then
      if the name of the member of sprite whSprite contains "_d" then
        set the membernum of sprite whSprite = (the memberNum of sprite whSprite) -2
        updatestage
      end if
      exit
    end if
  end repeat
  if the name of the member of sprite whSprite contains "_d" then
    set the membernum of sprite whSprite = (the memberNum of sprite whSprite) -2
    updatestage
  end if
end

on BtnUp whichSprite
  if  whichsprite = void then set whichSprite = the clickon
  if the name of the member of sprite whichSprite contains "_d" then
    set the memberNum of sprite whichSprite = (the memberNum of sprite whichSprite) -2
  end if
  updatestage
end

on roll x
  if the memberNum of sprite  x = 0 then exit
  if the name of the member of sprite x contains "_n" then
    set the memberNum of sprite x = (the memberNum of sprite x) - 1
  end if
end

on unroll x
  if the memberNum of sprite  x = 0 then exit
  if the name of the member of sprite x contains "_h" then
    set the memberNum of sprite x = (the memberNum of sprite x) + 1
  else
    if the name of the member of sprite x contains "_d" then
      set the memberNum of sprite x = (the memberNum of sprite x) - 1
    end if
  end if
end